﻿<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
</head>
<body>
<% 
dim action
action =request.QueryString("action")
Select case action
	case "edit" : editInfo
	case else : main
End Select

sub main
%>
<a href="?action=edit">点击生成</a>
<%
end sub

Sub editInfo
	Set objStream = Server.CreateObject("ADODB.Stream")
	With objStream
	.Open
	.Charset = "utf-8"
	.Position = objStream.Size
	
		str="<%"&vbcrlf& _
		"expandPic=""afaff"""&vbcrlf& _
		"showTitle="" """&vbcrlf&"%"&">"
	
	.WriteText=str
	.SaveToFile server.mappath("/t.asp"),2
	.Close
	End With
	Set objStream = Nothing
	response.Write "<script language=javascript>alert('生成成功');location.href='test.asp';</script>"
end sub
%>


</body>
</html>